home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Controls.pxl < prev    next >
Text File  |  1998-11-06  |  5KB  |  218 lines
  1. Initialize:
  2.     Title$ = "Trackbars and other Controls"
  3.     UseCaption(Title$)
  4.     UseCoordinates(PIXEL)
  5.     SetColorPalette(BITMAP)
  6.     UseBackground(TRANSPARENT,166,166,166)
  7.     DrawBackground
  8.     WinLocate(Title$,200,100,720,390,Res)
  9.     WinGetClientRect("",cx1,cy1,cx2,cy2)
  10.     DirGet(SourceDir$)
  11.     ImageDir$ = SourceDir$
  12.     Image01$ = SourceDir$ + "\brsfc754.bmp"
  13.     OldRed = 0
  14.     OldGreen = 0
  15.     OldBlue = 0
  16.  
  17.  
  18.     WinShow(Title$,TOPMOST,Res)
  19.     InfoMenu(REMOVE)
  20.     WaitInput(100)
  21.     SetMenu("E&xit!",Leave,
  22.         ENDPOPUP,
  23.         "&Testing",IGNORE,
  24.         "Trackbars",Make_Trackbars,
  25.         "RetrieveTrackbars",RetrieveTrackbars,
  26.         "Reset Trackbar Range",ResetTrackbarRange,
  27.         "Reset Trackbar Position",ResetTrackbarPosition,
  28.         "Group Trackbars",GroupTrackBars,
  29.         "Ungroup Trackbars",UnGroupTrackBars,
  30.         "Delete Trackbars",DeleteTrackbars,
  31.         ENDPOPUP)
  32.  
  33. Wait_for_Input: 
  34.     WaitInput()
  35.  
  36. Leave:
  37.     End
  38.  
  39.  
  40.  
  41. Make_Trackbars:
  42.     UseFont("Arial",7,15,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  43.     DrawText(12,4,"Red")  DrawText(52,4,"Green")  DrawText(108,4,"Blue") 
  44.     DrawText(300,4,"Font Size")
  45.     Trackbar(0,20,49,170,F_VERT,BOTH, 0,255, 25, "", TBnumber3, DrawRGBr)
  46.     Trackbar(50,20,99,170,F_VERT,BOTH, 0,255, 25, "", TBnumber4, DrawRGBg)
  47.     Trackbar(100,20,149,170,F_VERT,BOTH,0, 255, 25, "", TBnumber5, DrawRGBb)
  48.     Trackbar(300,20,349,170,F_VERT,BOTH, 5, 36, 4, "",TBnumber6, DrawTestFont)
  49.     GoSub SubDrawRGB
  50.  
  51.     
  52.  
  53.     Goto Wait_for_Input
  54.  
  55. Dummy:
  56.     {Beep}
  57.     Goto Wait_for_Input
  58.  
  59. DrawTestFont:
  60.     UseBackground(OPAQUE,166,166,166)
  61.     TrackbarGetValue(TBnumber3,Red)
  62.     TrackbarGetValue(TBnumber4,Green)
  63.     TrackbarGetValue(TBnumber5,Blue)
  64.     TrackbarGetValue(TBnumber6,Vsize)
  65.     UseFont("Arial",7,15,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  66.     Str(Vsize,Vsize$) Vsize$ = Vsize$ + "   "
  67.     DrawText(310,172,Vsize$)
  68.  
  69.     UseFont("Arial",0,Vsize,NOBOLD,NOITALIC,NOUNDERLINE, Red, Green, Blue)
  70.     UsePen(NULL,1,0,0,0)
  71.     UseBrush(SOLID,166,166,166)
  72.     If OldSize > Vsize Then DrawRectangle(200,200,500,280)
  73.     DrawText(200,200,"Sample Text String !")
  74.     OldSize = Vsize
  75.     Goto Wait_for_Input
  76.  
  77. GroupTrackBars:
  78.     TBflag = 1
  79.     Goto Wait_for_Input
  80. UnGroupTrackBars:
  81.     TBflag = 0
  82.     Goto Wait_for_Input
  83.  
  84. DrawRGBr:
  85.     rFlag = 1
  86.     gFlag = 0
  87.     bFlag = 0
  88.     Goto DrawRGB
  89. DrawRGBg:
  90.     rFlag = 0
  91.     gFlag = 1
  92.     bFlag = 0
  93.     Goto DrawRGB
  94. DrawRGBb:
  95.     rFlag = 0
  96.     gFlag = 0
  97.     bFlag = 1
  98. DrawRGB:
  99.     UseBackground(OPAQUE,166,166,166)
  100.     DrawNumber(10,192,RFlag)
  101.     DrawNumber(60,192,GFlag)
  102.     DrawNumber(110,192,BFlag)
  103.  
  104.     If TBflag = 1 
  105.         GoSub SubDrawRGBgroup
  106.     Endif
  107.     GoSub SubDrawRGB
  108.     Goto Wait_for_Input
  109.  
  110. SubDrawRGB:
  111.     UseBackground(OPAQUE,166,166,166)
  112.     TrackbarGetValue(TBnumber3,Red)
  113.     TrackbarGetValue(TBnumber4,Green)
  114.     TrackbarGetValue(TBnumber5,Blue)
  115.  
  116.     Str(Red,Red$)   Str(Green,Green$)   Str(Blue,Blue$)
  117.     If Red < 99 Then Red$ = Red$ + "      "
  118.     If Green < 99 Then Green$ = Green$ + "      "
  119.     If Blue < 99 Then Blue$ = Blue$ + "      " 
  120.     UseFont("Arial",7,15,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  121.     DrawText(10,172,Red$)
  122.     DrawText(60,172,Green$)
  123.     DrawText(110,172,Blue$)
  124.  
  125.     UseFont("Arial",0,Vsize,NOBOLD,NOITALIC,NOUNDERLINE, Red, Green, Blue)
  126.     DrawText(200,200,"Sample Text String !")
  127.  
  128.     UseBackground(TRANSPARENT,166,166,166)
  129.  
  130.     UsePen(SOLID,1,0,0,0)
  131.     UseBrush(SOLID,Red,Green,Blue)
  132.     DrawRectangle(150,20,200,170)
  133.     Return
  134.  
  135. SubDrawRGBgroup:
  136.     UseBackground(OPAQUE,166,166,166)
  137.     TrackbarGetValue(TBnumber3,Red)
  138.     TrackbarGetValue(TBnumber4,Green)
  139.     TrackbarGetValue(TBnumber5,Blue)
  140.     
  141.     If rFlag = 1
  142.         Diff = Red - OldRed
  143.         Green += Diff
  144.         Blue += Diff
  145.         If Green <  0 Then Green = 0 
  146.         If Green > 255 Then  Green = 255 
  147.         If Blue < 0 Then Blue = 0 
  148.         If Blue > 255 Then Blue = 255 
  149.  
  150.         TrackbarSetPosition(TBnumber4,Green)
  151.         TrackbarSetPosition(TBnumber5,Blue) 
  152.     Endif 
  153.  
  154.     If  gFlag = 1
  155.         Diff =Green - OldGreen
  156.         Red += Diff 
  157.         Blue += Diff 
  158.         If Red < 1 Then Red = 0 
  159.         If Red > 255 Then Red = 255 
  160.         If Blue < 0 Then Blue = 0 
  161.         If Blue > 255 Then Blue = 255 
  162.  
  163.          TrackbarSetPosition(TBnumber3,Red)
  164.         TrackbarSetPosition(TBnumber5,Blue) 
  165.     Endif 
  166.  
  167.     If  bFlag = 1
  168.         Diff = Blue - OldBlue
  169.         Green += Diff
  170.         Red += Diff
  171.         If Green < 0 Then Green = 0 
  172.         If Green > 255 Then Green = 255 
  173.         If Red < 2 Then Red = 0 
  174.         If Red > 255 Then Red = 255 
  175.  
  176.         TrackbarSetPosition(TBnumber3,Red)
  177.         TrackbarSetPosition(TBnumber4,Green) 
  178.     Endif 
  179.  
  180.     OldRed = Red
  181.     OldGreen = Green
  182.     OldBlue = Blue
  183.  
  184.     Return
  185.  
  186.  
  187.  
  188. RetrieveTrackbars:
  189.     DrawBackground
  190.     TrackbarGetValue(TBnumber1,TB1)
  191.     TrackbarGetValue(TBnumber2,TB2)
  192.     DrawNumber(310,110,TB1)
  193.     DrawNumber(310,210,TB2)
  194.     Goto Wait_for_Input
  195.  
  196. ResetTrackbarRange:
  197.     TrackbarSetRange(TBnumber1,-200,400,75)
  198.     Goto Wait_for_Input
  199.  
  200. ResetTrackbarPosition:
  201.     For Value = 10 To 255 By 10
  202.         TrackbarSetPosition(TBnumber3,Value)
  203.         TrackbarSetPosition(TBnumber4,Value)
  204.         TrackbarSetPosition(TBnumber5,Value)
  205.         GoSub SubDrawRGB
  206.     Next
  207.     Goto Wait_for_Input
  208.  
  209. DeleteTrackbars:
  210.     TrackbarRemove(0)
  211.     DrawBackground
  212. {    TrackbarRemove(TBnumber2)
  213.     TrackbarRemove(TBnumber3)
  214.     TrackbarRemove(TBnumber4) 
  215.  }
  216.     Goto Wait_for_Input
  217.  
  218.